home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / cc02.arc / ESC.C < prev    next >
Encoding:
Text File  |  1986-03-15  |  529 b   |  22 lines
  1. /*  esc - map string into escaped character if appropriate  */
  2.  
  3. /*  copyright (c) 1982 by the Toolsmith  */
  4.  
  5. char esc(s)
  6. register char **s;
  7. {
  8.         extern unsigned scnstr();
  9.         static char real[] = "\b\t\v\f\n\r\(\!\)\^";
  10.         static char symb[] = "btvfnr(!)^";
  11.  
  12.         if (**s != '\\')
  13.                 return **s;
  14.         if (*(*s+1) == '\0')  /*  not special at end  */
  15.                 return('\\');
  16.         ++*s;
  17.         real[sizeof(real)-1] = **s;
  18.  
  19.         return real[scnstr(symb, **s)];
  20. }
  21.  
  22.